home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS18.ADF / Logo / logo.5 < prev    next >
Text File  |  1989-01-27  |  738b  |  45 lines
  1. ;
  2. ;this program was copied directly, with one minor change, from the
  3. ;Sept. 1986 issue of Byte magazine, P. 14.  Due to Mr. Mark D. Widome.
  4. ;
  5. to hilbert :order :size
  6.  penup
  7.  setpos [200 30]  ;this is the only change, to adjust for screen size
  8.  setheading 180
  9.  pendown
  10.  curvright :order
  11.  end
  12.  
  13. to curvright :order
  14.  if :order =0 [stop]
  15.  left 90
  16.  curvleft :order-1
  17.  forward :size
  18.  right 90
  19.  curvright :order-1
  20.  forward :size
  21.  curvright :order-1
  22.  right 90
  23.  forward :size
  24.  curvleft :order-1
  25.  left 90
  26. end
  27.  
  28. to curvleft :order
  29.  if :order = 0 [stop]
  30.  right 90
  31.  curvright :order-1
  32.  forward :size
  33.  left 90
  34.  curvleft :order-1
  35.  forward :size
  36.  curvleft :order-1
  37.  left 90
  38.  forward :size
  39.  curvright :order-1
  40.  right 90
  41. end
  42.  
  43. to demo
  44.    cs pd hilbert 6 2
  45. end